home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
netz
/
amiwin
/
v2.11-update
/
install_amiwinupd
< prev
next >
Wrap
Text File
|
1995-08-06
|
9KB
|
496 lines
(procedure check-amiwin-version
(set amiwin-version (getversion (tackon @default-dest "bin/AmiWin")))
(if (not(= amiwin-version 131072))
(abort "You do not have AmiWin 2.0d installed.\n");
)
)
(procedure select-destination-directory
(set @default-dest
(askdir
(prompt "Select the directory where you have "
"installed AmiWin 2.0demo. The default is "
"probably correct.")
(help "Please specify the directory where you have "
"installed AmiWin 2.0demo. The default is "
"the X11: directory, i.e. the likely place of "
"your AmiWin installation.")
(default "X11:")
)
)
)
;;;; Start
(set app-name "AmiWin 2.11demo")
(complete 0)
(set source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
(expandpath @icon))
)
(select-destination-directory)
(check-amiwin-version)
(copyfiles
(source (tackon source-dir "x11/lib/x11/locale/locale.alias"))
(dest (tackon @default-dest "lib/x11/locale"))
)
(complete 3)
(copyfiles
(source (tackon source-dir "x11/lib/x11/locale/locale.dir"))
(dest (tackon @default-dest "lib/x11/locale"))
)
(complete 7)
(copyfiles
(source (tackon source-dir "x11/lib/x11/locale/iso8859-1/Compose"))
(dest (tackon @default-dest "lib/x11/locale/iso8859-1"))
)
(complete 11)
(copyfiles
(source (tackon source-dir "x11/libs/xlib.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "libs/xlib.library"))
(dest "T:")
(newname "xlib.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xlib.library -pT:xlib.pch T:xlib.old"))
(copyfiles
(source "T:xlib.library")
(dest (tackon @default-dest "libs"))
)
(delete "T:xlib.library")
(delete "T:xlib.old")
(delete "T:xlib.pch")
(complete 16)
(copyfiles
(source (tackon source-dir "x11/libs/xt.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "libs/xt.library"))
(dest "T:")
(newname "xt.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xt.library -pT:xt.pch T:xt.old"))
(copyfiles
(source "T:xt.library")
(dest (tackon @default-dest "libs"))
)
(delete "T:xt.library")
(delete "T:xt.old")
(delete "T:xt.pch")
(complete 21)
(copyfiles
(source (tackon source-dir "x11/libs/xmu1.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "libs/xmu1.library"))
(dest "T:")
(newname "xmu1.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xmu1.library -pT:xmu1.pch T:xmu1.old"))
(copyfiles
(source "T:xmu1.library")
(dest (tackon @default-dest "libs"))
)
(delete "T:xmu1.library")
(delete "T:xmu1.old")
(delete "T:xmu1.pch")
(complete 26)
(copyfiles
(source (tackon source-dir "x11/libs/xmu2.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "libs/xmu2.library"))
(dest "T:")
(newname "xmu2.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xmu2.library -pT:xmu2.pch T:xmu2.old"))
(copyfiles
(source "T:xmu2.library")
(dest (tackon @default-dest "libs"))
)
(delete "T:xmu2.library")
(delete "T:xmu2.old")
(delete "T:xmu2.pch")
(complete 31)
(copyfiles
(source (tackon source-dir "x11/libs/xaw.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "libs/xaw.library"))
(dest "T:")
(newname "xaw.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xaw.library -pT:xaw.pch T:xaw.old"))
(copyfiles
(source "T:xaw.library")
(dest (tackon @default-dest "libs"))
)
(delete "T:xaw.library")
(delete "T:xaw.old")
(delete "T:xaw.pch")
(complete 36)
(copyfiles
(source (tackon source-dir "x11/libs/xfont.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "libs/xfont.library"))
(dest "T:")
(newname "xfont.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xfont.library -pT:xfont.pch T:xfont.old"))
(copyfiles
(source "T:xfont.library")
(dest (tackon @default-dest "libs"))
)
(delete "T:xfont.library")
(delete "T:xfont.old")
(delete "T:xfont.pch")
(complete 41)
(copyfiles
(source (tackon source-dir "x11/libs/xtrans.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "libs/xtrans.library"))
(dest "T:")
(newname "xtrans.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xtrans.library -pT:xtrans.pch T:xtrans.old"))
(copyfiles
(source "T:xtrans.library")
(dest (tackon @default-dest "libs"))
)
(delete "T:xtrans.library")
(delete "T:xtrans.old")
(delete "T:xtrans.pch")
(complete 46)
(copyfiles
(source (tackon source-dir "x11/libs/xice.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "libs/xice.library"))
(dest "T:")
(newname "xice.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xice.library -pT:xice.pch T:xice.old"))
(copyfiles
(source "T:xice.library")
(dest (tackon @default-dest "libs"))
)
(delete "T:xice.library")
(delete "T:xice.old")
(delete "T:xice.pch")
(complete 51)
(copyfiles
(source (tackon source-dir "x11/xsd/aga-8.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "xsd/aga-8.xsd"))
(dest "T:")
(newname "aga-8.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:aga-8.xsd -pT:aga-8.pch T:aga-8.old"))
(copyfiles
(source "T:aga-8.xsd")
(dest (tackon @default-dest "xsd"))
)
(delete "T:aga-8.xsd")
(delete "T:aga-8.old")
(delete "T:aga-8.pch")
(complete 56)
(copyfiles
(source (tackon source-dir "x11/xsd/rtg-1.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "xsd/rtg-1.xsd"))
(dest "T:")
(newname "rtg-1.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:rtg-1.xsd -pT:rtg-1.pch T:rtg-1.old"))
(copyfiles
(source "T:rtg-1.xsd")
(dest (tackon @default-dest "xsd"))
)
(delete "T:rtg-1.xsd")
(delete "T:rtg-1.old")
(delete "T:rtg-1.pch")
(complete 61)
(copyfiles
(source (tackon source-dir "x11/xsd/cybergraphx-8.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "xsd/cybergraphx-8.xsd"))
(dest "T:")
(newname "cybergraphx-8.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:cybergraphx-8.xsd -pT:cybergraphx-8.pch T:cybergraphx-8.old"))
(copyfiles
(source "T:cybergraphx-8.xsd")
(dest (tackon @default-dest "xsd"))
)
(delete "T:cybergraphx-8.xsd")
(delete "T:cybergraphx-8.old")
(delete "T:cybergraphx-8.pch")
(complete 66)
(copyfiles
(source (tackon source-dir "x11/xsd/picasso-l-8.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "xsd/picasso-l-8.xsd"))
(dest "T:")
(newname "picasso-l-8.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:picasso-l-8.xsd -pT:picasso-l-8.pch T:picasso-l-8.old"))
(copyfiles
(source "T:picasso-l-8.xsd")
(dest (tackon @default-dest "xsd"))
)
(delete "T:picasso-l-8.xsd")
(delete "T:picasso-l-8.old")
(delete "T:picasso-l-8.pch")
(complete 71)
(copyfiles
(source (tackon source-dir "x11/bin/xhost.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "bin/xhost"))
(dest "T:")
(newname "xhost.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xhost -pT:xhost.pch T:xhost.old"))
(copyfiles
(source "T:xhost")
(dest (tackon @default-dest "bin"))
)
(delete "T:xhost")
(delete "T:xhost.old")
(delete "T:xhost.pch")
(complete 76)
(copyfiles
(source (tackon source-dir "x11/bin/AmiWin.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "bin/AmiWin"))
(dest "T:")
(newname "AmiWin.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:AmiWin -pT:AmiWin.pch T:AmiWin.old"))
(copyfiles
(source "T:AmiWin")
(dest (tackon @default-dest "bin"))
)
(delete "T:AmiWin")
(delete "T:AmiWin.old")
(delete "T:AmiWin.pch")
(complete 81)
(copyfiles
(source (tackon source-dir "x11/bin/WaitForX.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "bin/WaitForX"))
(dest "T:")
(newname "WaitForX.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:WaitForX -pT:WaitForX.pch T:WaitForX.old"))
(copyfiles
(source "T:WaitForX")
(dest (tackon @default-dest "bin"))
)
(delete "T:WaitForX")
(delete "T:WaitForX.old")
(delete "T:WaitForX.pch")
(complete 86)
(copyfiles
(source (tackon source-dir "x11/bin/xcalc.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "bin/xcalc"))
(dest "T:")
(newname "xcalc.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xcalc -pT:xcalc.pch T:xcalc.old"))
(copyfiles
(source "T:xcalc")
(dest (tackon @default-dest "bin"))
)
(delete "T:xcalc")
(delete "T:xcalc.old")
(delete "T:xcalc.pch")
(complete 91)
(copyfiles
(source (tackon source-dir "x11/bin/startx"))
(dest (tackon @default-dest "bin"))
)
(working)
(run (cat "protect \"" (tackon @default-dest "bin/startx") "\" +s"))
(complete 95)
(copyfiles
(source (tackon source-dir "AmiWin_guide.pch"))
(dest "T:")
)
(copyfiles
(source (tackon @default-dest "help/AmiWin.guide"))
(dest "T:")
(newname "AmiWin_guide.old")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:AmiWin.guide -pT:AmiWin_guide.pch T:AmiWin_guide.old"))
(copyfiles
(source "T:AmiWin.guide")
(dest (tackon @default-dest "help"))
)
(delete "T:AmiWin.guide")
(delete "T:AmiWin_guide.old")
(delete "T:AmiWin_guide.pch")
(complete 100)
(exit "Installation of the update from AmiWin 2.0demo to "
"AmiWin 2.11demo is finished.")